% Change file for DDTONE.WEB, changes make lots of barons (just for fun)
@x
begin store(i,j); store(i-4,j+4); store(5-j,i); store(1-j,i-4);@/
store(4+j,1-i); store(j,5-i); store(5-i,5-j); store(1-i,1-j);
end;

@ @<Initialize the class number matrix@>=
k←0; store_eight(7,2); store_eight(8,3); store_eight(8,2); store_eight(8,1);@/
store_eight(1,4); store_eight(1,3); store_eight(1,2); store_eight(2,3);@/
@y
begin store(i,j); store(i+4,j+4); store(i,j+4); store(i+4,j);@/
store(i+2,j+2); store(i+6,j+6); store(i+2,j+6); store(i+6,j+2);
end;
procedure stero_eight(@!i,@!j:integer); {dual of the other}
begin store(i,j); store(i+4,j+4); store(i,j+4); store(i+4,j);@/
store(i+2,j+6); store(i+6,j+2); store(i+2,j+2); store(i+6,j+6);
end;

@ @<Initialize the class number matrix@>=
k←0; store_eight(1,1); stero_eight(1,3); store_eight(2,2); stero_eight(2,4);@/
store_eight(1,2); stero_eight(1,4); store_eight(2,1); stero_eight(2,3);@/
@z